home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #52 (1995-10-30)(PackMAN)(DE)[WB, FFS].zip / Purity #52 (1995-10-30)(PackMAN)(DE)[WB, FFS].adf / ReadItem / ReadItem.p < prev    next >
Text File  |  1995-10-01  |  945b  |  39 lines
  1. { Zeigt die Verarbeitung von einem Argument aus dem CLI via "ReadItem",
  2.   funktioniert nur in der Shell (o. WB-Befehlseingabe) NICHT im Editor.
  3.  
  4.   by PackMAN, Falk Zühlsdorff 4 Purity                                 }
  5.  
  6. PROGRAM DOS_ReadItem;
  7.  
  8. {$incl "dos.lib"}
  9.  
  10. VAR
  11.   args : ^string[109];
  12.   help : LONG;
  13.  
  14. BEGIN
  15.   OpenLib(DOSBase, "dos.library", 37);
  16.   New(args);
  17.   help:= ReadItem(args,108,NIL);
  18.   CASE help OF
  19.    0: writeln('Kein Argument angegeben.');
  20.    1: writeln('Argument: ',args^);
  21.   -1,
  22.    2: IF args^=''
  23.        THEN writeln('Es wurden Anführungszeichen genutzt, aber das Argument fehlte.')
  24.        ELSE
  25.         BEGIN
  26.          help:=Pos(' ',args^);
  27.          IF help>1 THEN writeln('gekürztes Argument: ',Copy(args^,1,help-1))
  28.                    ELSE IF help=1 THEN writeln('Argument fehlerhaft...')
  29.                                   ELSE writeln('Argument: ',args^);
  30.         END;
  31.   ELSE;END;
  32.  
  33.   Dispose(args);
  34.   CloseLib(DOSBase);
  35. END.
  36.  
  37.  
  38.  
  39.